home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Extravaganza - Disc 4
/
Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso
/
cad
/
quikcmd2.zip
/
FASTCMD.LSP
< prev
next >
Wrap
Text File
|
1990-10-23
|
11KB
|
253 lines
; FASTCMD.LSP
;
; QUICK COMMAND version 2.0
; FASTCMD.LSP is a module of QUICK COMMAND
; Copyright 1989, 1990 Dan Jincks
;
;
; This is SHAREWARE, it is NOT Public Domain software.
;
; This code or any part of this code may not be reproduced
; in any publication without prior written permission.
;
; Printed copy of this code or any part of this code may not
; be distributed without prior written permission.
;
; Printed copy may only be made for reference purposes by
; the end user.
;
;
; Dan Jincks
; Box 155A HCR 77
; Annapolis, MO 63620
;
;
;
; You are granted a limited license to use FASTCMD.LSP for a 30 day trial
; period. If you wish to continue using any or all of QUICK COMMAND after
; the trial period, you must become a registered user. As a registered
; user, you may use QUICK COMMAND on 1 workstation or terminal.
; Additional registrations must be bought for each additional workstation or
; terminal. To become a registered user, fill out the order form that can
; be printed out from ORDERQC.DOC .
;
;
; You may send copies of QUICK COMMAND to friends and associates if you abide
; by the following rules:
;
; 1. It may only be distributed in the original unmodified form.
; 2. All original files must be included.
; 3. No addition files may be added.
; 4. If other files will be on the same disk, QUICK COMMAND files must be in
; a library format such as ".ARC" called "QUICKCMD", or else be put alone
; in a subdirectory called "QUICKCMD".
; 5. You may not sell QUICK COMMAND or any part of it.
; 6. You are not allowed to charge more then $5 to cover the cost of copying
; and distribution.
; 7. You may not distribute any hard copy of the contents of QUICK COMMAND.
;
;
; These AutoLISP commands and functions are designed to save you time, and
; saving time means saving money. The registration fee is very modest
; compared to the savings, and much less expensive then typical third party
; AutoCAD software. Be sure to registar if you continue to use them.
;
;
; DAN
;
;
;
;
; AutoCAD and AutoLISP are registered trade marks of Autodesk Inc.
;
; ***************************************************************
;
; Begin FASTCMD.LSP
;
(setq SCMC 1)
;
(defun C:TMC ()
(if (= SCMC nil)(setq SCMC 0))
(setq SCMC (abs (- SCMC 1)))
(if (= SCMC 0)
(prompt "Menu calling is OFF.")
(prompt "Menu calling is ON."))(princ)
)
;
(defun C:3DF()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3DFACE")))
(command "3DFACE"))
(defun C:3DM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
(command "3DMESH"))
(defun C:3DP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3DPOLY")))
(command "3DPOLY"))
(defun C:3DS()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D"))))
(defun C:A()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ARC")))
(command "ARC"))
(defun C:AA()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=AREA")))
(command "AREA"))
(defun C:AY()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ARRAY")))
(command "ARRAY"))
(defun C:B()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=BREAK")))
(command "BREAK"))
(defun C:BL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=BLOCK")))
(command "BLOCK"))
(defun C:C()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=COPY")))
(command "COPY"))
(defun C:CH()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHANGE")))
(command "CHANGE"))
(defun C:CF()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHAMFER")))
(command "CHAMFER"))
(defun C:COL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=COLOR")))
(command "COLOR"))
(defun C:CP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHPROP")))
(command "CHPROP"))
(defun C:CR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CIRCLE")))
(command "CIRCLE"))
(defun C:D()(command "DIST"))
(defun C:DT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DTEXT")))
(command "DTEXT"))
(defun C:DD()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIVIDE")))
(command "DIVIDE"))
(defun C:DL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIMLINEAR")))
(command "DIM"))
(defun C:DM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIM")))
(command "DIM"))
(defun C:DO()(command "DONUT"))
(defun C:DV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DVIEW")))
(command "DVIEW"))
(defun C:E()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ERASE")))
(command "ERASE"))
(defun C:EDG()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
(command "EDGESURF"))
(defun C:EE()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ELLIPSE")))
(command "ELLIPSE"))
(defun C:EV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ELEVTHK")))
(command "ELEV"))
(defun C:F()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=FILLET")))
(command "FILLET"))
(defun C:G()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=GRID")))
(command "GRID"))
(defun C:H()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=HATCH")))
(command "HATCH"))
(defun C:I()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=INSERT")))
(command "INSERT"))
(defun C:IS()(command "ISOPLANE"))
(defun C:L()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LINE")))
(command "LINE"))
(defun C:LA()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LAYER")))
(command "LAYER"))
(defun C:LI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LIST")))
(command "LIST"))
(defun C:LM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LIMITS")))
(command "LIMITS"))
(defun C:LT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LINETYPE")))
(command "LINETYPE"))
(defun C:LTS()(command "LTSCALE"))
(defun C:M()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MOVE")))
(command "MOVE"))
(defun C:ME()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MEASURE")))
(command "MEASURE"))
(defun C:MI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MINSERT")))
(command "MINSERT"))
(defun C:MR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MIRROR")))
(command "MIRROR"))
(defun C:MSL()(command "MSLIDE"))
(defun C:O()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=OFFSET")))
(command "OFFSET"))
(defun C:OS()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=OSNAPC")))
(command "OSNAP"))
(defun C:P()(command "PAN"))
(defun C:PE()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=P0")))
(command "PEDIT"))
(defun C:PG()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=POLYGON")))
(command "POLYGON"))
(defun C:PL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=PLINE")))
(command "PLINE"))
(defun C:PT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=POINT")))
(command "POINT"))
(defun C:QY()(command "QTEXT" "ON"))
(defun C:QN()(command "QTEXT" "OFF"))
(defun C:R()(command "REDRAW"))
(defun C:RA()(command "REDRAWALL"))
(defun C:REV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
(command "REVSURF"))
(defun C:RG()(command "REGEN"))
(defun C:RGA()(command "REGENALL"))
(defun C:RN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=RENAME")))
(command "RENAME"))
(defun C:RT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ROTATE")))
(command "ROTATE"))
(defun C:RUL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
(command "RULESURF"))
(defun C:SV()(command "SAVE" ""))
(defun C:S()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SCALE")))
(command "SCALE"))
(defun C:SCR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SCRIPT")))
(command "SCRIPT"))
(defun C:SEL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SELECT")))
(command "SELECT"))
(defun C:SK()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SKETCH")))
(command "SKETCH"))
(defun C:SN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SNAP")))
(command "SNAP"))
(defun C:SO()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SOLID")))
(command "SOLID"))
(defun C:ST()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=STRETCH")))
(command "STRETCH" "C"))
(defun C:SY()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=STYLE")))
(command "STYLE"))
(defun C:T()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=TRIM")))
(command "TRIM"))
(defun C:TAB()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
(command "TABSURF"))
(defun C:UC()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=UCS1")))
(command "UCS"))
(defun C:UN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=UNDO")))
(command "UNDO"))
(defun C:VI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=VIEW")))
(command "VIEW"))
(defun C:VP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=VPORTS")))
(command "VPORTS"))
(defun C:VSL()(command "VSLIDE"))
(defun C:WB()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=WBLOCK")))
(command "WBLOCK"))
(defun C:X()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=EXTEND")))
(command "EXTEND"))
(defun C:XP()(command "EXPLODE"))
(defun C:Z()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ZOOM")))
(command "ZOOM"))
;
(defun C:CD() (command "CIRCLE" pause "dia"))
(defun C:EC() (command "ERASE" "Crossing" ))
(defun C:EL() (command "ERASE" "Last" ""))
(defun C:EW() (command "ERASE" "Window" ))
(defun C:F0() (command "FILLET" "R" "0" "FILLET"))
(defun C:II() (command "INSERT" pause pause "" ""))
(defun C:III() (command "INSERT" pause pause "" "" ""))
(defun C:PC() (command "PLAN" ""))
(defun C:PU() (command "PLAN" "U"))
(defun C:PW() (command "PLAN" "W"))
(defun C:U3() (command "UCS" "3"))
(defun C:UE() (command "UCS" "E"))
(defun C:UV() (command "UCS" "V"))
(defun C:UX() (command "UCS" "X"))
(defun C:UY() (command "UCS" "Y"))
(defun C:UZ() (command "UCS" "Z"))
(defun C:VD() (command "VIEW" "Delete"))
(defun C:VE() (command "VIEW" "R" "E"))
(defun C:VR() (command "VIEW" "Restore"))
(defun C:VS() (command "VIEW" "Save"))
(defun C:VV() (command "VIEW" "?"))
(defun C:V1() (command "VIEW" "R" "1"))
(defun C:V2() (command "VIEW" "R" "2"))
(defun C:V3() (command "VIEW" "R" "3"))
(defun C:V4() (command "VIEW" "R" "4"))
(defun C:ZE() (command "ZOOM" "E"))
(defun C:ZP() (command "ZOOM" "P"))
(defun C:ZW() (command "ZOOM" "W"))
;
(defun C:B1() (prompt " Break at a single point.")(terpri)
(command "BREAK" pause "F" pause "@0,0"))
;
; End FASTCMD.LSP